﻿Imports System.Security.Cryptography
Imports System.Collections.Generic
Imports System.Data
Imports System.IO
Imports System.Net
Public Class NetWorkCheck

    Public bNetWorkAvailable As Boolean = False
    Private StrCollection As New List(Of String) '与网络数据连接
    Private StrDatetime As New List(Of DateTime)
    Private mGetNettime As DateTime

    ''' <summary>
    ''' 网络相关的探测与读取
    ''' </summary>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function DoNetWorkCheck(ByVal bTryVersion As Boolean) As Boolean

        '如果不是试用版的程序，是正式版，那么就不做版本检查，以及序列号检查
        If bTryVersion = False Then
            Return True
        End If


        Dim frm As New frmWebNet
        'frm.Urlstrs = Urlstrs
        'frm.mStr = mStr
        If frm.ShowDialog = Windows.Forms.DialogResult.OK Then
            Return True
        Else
            Return False
        End If
    End Function


End Class
